/* Copyright (C) 2000 Free Software Foundation, Inc.
 This file is part of the GNU C Library.
 Contributed by Ulrich Drepper <drepper@redhat.com>, 2000.

 The GNU C Library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 License as published by the Free Software Foundation; either
 version 2.1 of the License, or (at your option) any later version.

 The GNU C Library is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 Lesser General Public License for more details.

 You should have received a copy of the GNU Lesser General Public
 License along with the GNU C Library; if not, write to the Free
 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 02111-1307 USA.  */

#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <wchar.h>

static int check_ascii(const char *locname);


int
main(void)
{
	int result = 0;

	/* Check mapping of ASCII range for some character sets which have
	 ASCII as a subset.  For those the wide char generated must have
	 the same value.  */
	setlocale(LC_ALL, "C");
	result |= check_ascii(setlocale(LC_ALL, NULL));

	setlocale(LC_ALL, "de_DE.UTF-8");
	result |= check_ascii(setlocale(LC_ALL, NULL));

	setlocale(LC_ALL, "ja_JP.EUC-JP");
	result |= check_ascii(setlocale(LC_ALL, NULL));

	return result;
}


static int
check_ascii(const char *locname)
{
	wchar_t wc;
	int res = 0;

	printf("Testing locale \"%s\":\n", locname);

	for (wc = 0; wc <= 127; ++wc) {
		char buf[2 * MB_CUR_MAX];
		mbstate_t s;
		size_t n;

		memset(buf, '\xff', sizeof(buf));
		memset(&s, '\0', sizeof(s));

		n = wcrtomb(buf, wc, &s);
		if (n == (size_t) - 1) {
			printf("%s: '\\x%x': encoding error\n", locname, (int) wc);
			++res;
		} else if (n == 0) {
			printf("%s: '\\x%x': 0 returned\n", locname, (int) wc);
			++res;
		} else if (n != 1) {
			printf("%s: '\\x%x': not 1 returned\n", locname, (int) wc);
			++res;
		} else if (wc != (wchar_t) buf[0]) {
			printf("%s: L'\\x%x': buf[0] != '\\x%x'\n", locname, (int) wc,
				(int) wc);
			++res;
		}
	}

	printf(res == 1 ? "%d error\n" : "%d errors\n", res);

	return res != 0;
}
